library(knitr)
opts_chunk$set(comment = NA, 
               results = "asis",
               comment = NA, tidy = FALSE)
library(rCharts)
 data(iris,package = "datasets",envir = baseenv())
  names(iris) = gsub('\\.', '', names(iris))
  e<-rPlot(SepalLength ~ SepalWidth | Species, data = iris, type = 'point', color = 'Species')
  # print(class(e))
  inherits(e,"rCharts")
[1] TRUE
  # e$show('inline', include_assets = TRUE, cdn = TRUE)
  e
e$show('iframesrc', cdn = TRUE)
e$print()
e$show('inline', include_assets = TRUE, cdn = TRUE)
library(rCharts)
hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male")
n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, 
            type = 'multiBarChart')
n1$show("iframesrc", cdn = TRUE)
<iframe srcdoc=' &lt;!doctype HTML&gt;
&lt;meta charset = &#039;utf-8&#039;&gt;
&lt;html&gt;
  &lt;head&gt;
    &lt;link rel=&#039;stylesheet&#039; href=&#039;//cdnjs.cloudflare.com/ajax/libs/nvd3/1.1.15-beta/nv.d3.min.css&#039;&gt;
    
    &lt;script src=&#039;//ajax.googleapis.com/ajax/libs/jquery/1.8.2/jquery.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//d3js.org/d3.v3.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//cdnjs.cloudflare.com/ajax/libs/nvd3/1.1.15-beta/nv.d3.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//nvd3.org/assets/lib/fisheye.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    
    &lt;style&gt;
    .rChart {
      display: block;
      margin-left: auto; 
      margin-right: auto;
      width: 800px;
      height: 400px;
    }  
    &lt;/style&gt;
    
  &lt;/head&gt;
  &lt;body &gt;
    
    &lt;div id = &#039;chart20c67355b4&#039; class = &#039;rChart nvd3&#039;&gt;&lt;/div&gt;    
    &lt;script type=&#039;text/javascript&#039;&gt;
 $(document).ready(function(){
      drawchart20c67355b4()
    });
    function drawchart20c67355b4(){  
      var opts = {
 &quot;dom&quot;: &quot;chart20c67355b4&quot;,
&quot;width&quot;:    800,
&quot;height&quot;:    400,
&quot;x&quot;: &quot;Hair&quot;,
&quot;y&quot;: &quot;Freq&quot;,
&quot;group&quot;: &quot;Eye&quot;,
&quot;type&quot;: &quot;multiBarChart&quot;,
&quot;id&quot;: &quot;chart20c67355b4&quot; 
},
        data = [
 {
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             32 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             53 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              3 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             11 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             50 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             30 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             25 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              7 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              5 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              3 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             15 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              7 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              8 
} 
]
  
      if(!(opts.type===&quot;pieChart&quot; || opts.type===&quot;sparklinePlus&quot; || opts.type===&quot;bulletChart&quot;)) {
        var data = d3.nest()
          .key(function(d){
            //return opts.group === undefined ? &#039;main&#039; : d[opts.group]
            //instead of main would think a better default is opts.x
            return opts.group === undefined ? opts.y : d[opts.group];
          })
          .entries(data);
      }
      
      if (opts.disabled != undefined){
        data.map(function(d, i){
          d.disabled = opts.disabled[i]
        })
      }
      
      nv.addGraph(function() {
        var chart = nv.models[opts.type]()
          .width(opts.width)
          .height(opts.height)
          
        if (opts.type != &quot;bulletChart&quot;){
          chart
            .x(function(d) { return d[opts.x] })
            .y(function(d) { return d[opts.y] })
        }
          
         
        
          
        

        
        
        
      
       d3.select(&quot;#&quot; + opts.id)
        .append(&#039;svg&#039;)
        .datum(data)
        .transition().duration(500)
        .call(chart);

       nv.utils.windowResize(chart.update);
       return chart;
      });
    };
&lt;/script&gt;
    
    &lt;script&gt;&lt;/script&gt;    
  &lt;/body&gt;
&lt;/html&gt; ' scrolling='no' frameBorder='0' seamless class='rChart  nvd3  ' id='iframe-chart20c67355b4'> </iframe>
 <style>iframe.rChart{ width: 100%; height: 400px;}</style>
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6IGRlZmF1bHQNCiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdA0KICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQNCi0tLQ0KPHNjcmlwdCBzcmM9J2ByIHN5c3RlbS5maWxlKCJteV9hcHAiLCJ3d3ciLCJqcyIsImhpZ2hjaGFydC5qcyIscGFja2FnZSA9ICJzaGlueXRvZG9jeCIpYCc+PC9zY3JpcHQ+DQo8c2NyaXB0IHNyYz0nYHIgc3lzdGVtLmZpbGUoIm15X2FwcCIsInd3dyIsImpzIiwiaGlnaGNoYXJ0cy1tb3JlLmpzIixwYWNrYWdlID0gInNoaW55dG9kb2N4IilgJz48L3NjcmlwdD4NCjxzY3JpcHQgc3JjPSdgciBzeXN0ZW0uZmlsZSgibXlfYXBwIiwid3d3IiwianMiLCJtb3Rpb24uanMiLHBhY2thZ2UgPSAic2hpbnl0b2RvY3giKWAnPjwvc2NyaXB0Pg0KPHNjcmlwdCBzcmM9J2ByIHN5c3RlbS5maWxlKCJteV9hcHAiLCJ3d3ciLCJqcyIsInBvbHljaGFydDIuc3RhbmRhbG9uZS5qcyIscGFja2FnZSA9ICJzaGlueXRvZG9jeCIpYCc+PC9zY3JpcHQ+DQoNCg0KYGBge3Igc2V0dXB9DQpsaWJyYXJ5KGtuaXRyKQ0Kb3B0c19jaHVuayRzZXQoY29tbWVudCA9IE5BLCANCiAgICAgICAgICAgICAgIHJlc3VsdHMgPSAiYXNpcyIsDQogICAgICAgICAgICAgICBjb21tZW50ID0gTkEsIHRpZHkgPSBGQUxTRSkNCmBgYA0KDQpgYGB7cn0NCg0KbGlicmFyeShyQ2hhcnRzKQ0KIGRhdGEoaXJpcyxwYWNrYWdlID0gImRhdGFzZXRzIixlbnZpciA9IGJhc2VlbnYoKSkNCiAgbmFtZXMoaXJpcykgPSBnc3ViKCdcXC4nLCAnJywgbmFtZXMoaXJpcykpDQogIGU8LXJQbG90KFNlcGFsTGVuZ3RoIH4gU2VwYWxXaWR0aCB8IFNwZWNpZXMsIGRhdGEgPSBpcmlzLCB0eXBlID0gJ3BvaW50JywgY29sb3IgPSAnU3BlY2llcycpDQogICMgcHJpbnQoY2xhc3MoZSkpDQogIGluaGVyaXRzKGUsInJDaGFydHMiKQ0KICBlJHNob3coJ2lubGluZScsIGluY2x1ZGVfYXNzZXRzID0gVFJVRSwgY2RuID0gVFJVRSkNCmBgYA0KDQpgYGB7cn0NCmUkc2hvdygnaWZyYW1lc3JjJywgY2RuID0gVFJVRSkNCmBgYA0KDQoNCg0KYGBge3J9DQplJHByaW50KCkNCmBgYA0KDQoNCmBgYHtyfQ0KZSRzaG93KCdpbmxpbmUnLCBpbmNsdWRlX2Fzc2V0cyA9IFRSVUUsIGNkbiA9IFRSVUUpDQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KHJDaGFydHMpDQpoYWlyX2V5ZV9tYWxlIDwtIHN1YnNldChhcy5kYXRhLmZyYW1lKEhhaXJFeWVDb2xvciksIFNleCA9PSAiTWFsZSIpDQpuMSA8LSBuUGxvdChGcmVxIH4gSGFpciwgZ3JvdXAgPSAiRXllIiwgZGF0YSA9IGhhaXJfZXllX21hbGUsIA0KICAgICAgICAgICAgdHlwZSA9ICdtdWx0aUJhckNoYXJ0JykNCm4xJHNob3coImlmcmFtZXNyYyIsIGNkbiA9IFRSVUUpDQpgYGANCg0K